home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d22 / ds400a.arc / PC_MOUSE.MSC < prev    next >
Encoding:
Text File  |  1990-06-29  |  16.9 KB  |  367 lines
  1. ;
  2. ; Program:  PCMOUSE.MSC
  3. ;           Source for PCMOUSE.COM
  4. ;           - Mouse Systems PC Mouse Driver for DS Ver 4.00
  5. ;           - 1 May 1990
  6. ;
  7. ; Author:   Nat Martino  
  8. ;           501 W. Vineyard Ave #514
  9. ;           Oxnard, CA 93030
  10. ;           (805) 485-6340
  11. ;
  12. ; Instructions:
  13. ;     1.  Modify mouse menu driver as desired.
  14. ;     2.  Compile program with "msc" (ie: msc pcmouse).
  15. ;         The "msc.exe" compiler program is located on one of the disks
  16. ;         that came with your Mouse Systems Mouse.
  17. ;     3.  Step 2 creates the "pcmouse.com" file.
  18. ;     4.  Prior to starting DS ensure the Mouse driver and Mouse Menu
  19. ;         programs are executed.
  20. ;           ie:  MOUSESYS <ENTER>      ... loads Mouse Driver
  21. ;                PCMOUSE  <ENTER>      ... loads PopUp Mouse Menus for DS
  22. ;                DS <ENTER>            ... loads DS
  23. ;
  24. ; Mouse Operation Notes (as currently configured):
  25. ;      1. The Mouse can be configured to work on Directories or Files.
  26. ;         To switch the mouse configuration from directories to files
  27. ;         or visa versa, depress the rightmost button.
  28. ;      2. File-Mouse
  29. ;           (see DEF #1 below)
  30. ;      3. Directory-Mouse - this is the default on startup
  31. ;           (see DEF #2 below)
  32. ;
  33. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  34.  
  35. Comment        ("Configured for DS - Directory Scanner Ver 4.00")
  36.  
  37. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  38. ;       GLOBAL PARAMETERS
  39. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  40. ReverseVideo    (Yes)           ; Menu is displayed in reverse video
  41. FixedMenu       (No)            ; Menu is floating (centered on cursor)
  42. EnableBeep      (No)            ; Allows menu switching rather than beep
  43. ExpertMode      (Yes)
  44. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  45. ;       CURSOR DEFINITIONS
  46. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  47.  
  48. File_Cursor: Cursor
  49. (
  50.                  Left         ([Left])
  51.                  Right        ([Right])
  52.                  Up           ([Up])
  53.                  Down         ([Down]) 
  54.                  Sensitivity  (30, 10)   
  55.                  Hysteresis   (2, 2)     
  56. )
  57. ; DEF #1         Definitions When Working With FILES
  58. ; ┌────────┬──────────────┐  ┌───────────┬─────────────────────────────────────┐
  59. ; │        │      UP      │  │           │     Left        Middle      Right   │
  60. ; │ Mouse  │      |       │  │  Button   │                                     │
  61. ; │Movement│LEFT--|--RIGHT│  │Definitions│     Tag          Untag     Switch   │
  62. ; │        │      |       │  │           │     File         File        to     │
  63. ; │        │     DOWN     │  │           │                            DEF #2   │
  64. ; └────────┴──────────────┘  └───────────┴─────────────────────────────────────┘
  65. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  66.  
  67. Dir_Cursor: Cursor
  68. (
  69.                  Left         ([F1])
  70.                  Right        ([F2])
  71.                  Up           ([F1])
  72.                  Down         ([F2]) 
  73.                  Sensitivity  (10, 10)
  74.                  Hysteresis   (2, 2)  
  75. )
  76. ; DEF #2         Definitions When Working With DIRECTORIES
  77. ; ┌────────┬───────────┐     ┌───────────┬─────────────────────────────────────┐
  78. ; │        │     F1    │     │           │     Left        Middle      Right   │
  79. ; │ Mouse  │     |     │     │  Button   │                                     │
  80. ; │Movement│ F1--|--F2 │     │Definitions│     <CR>          F5        Switch  │
  81. ; │        │     |     │     │           │               (Root Dir)      to    │
  82. ; │        │     F2    │     │           │                             DEF #1  │
  83. ; └────────┴───────────┘     └───────────┴─────────────────────────────────────┘
  84. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  85.  
  86. Macro_Cursor: Cursor
  87. (
  88.                  Left         ([Left])
  89.                  Right        ([Right])
  90.                  Up           ([Up])
  91.                  Down         ([Down]) 
  92.                  Sensitivity  (10, 10)  
  93.                  Hysteresis   (10, 2)   
  94. )
  95. ; DEF #3         Definitions When Working With MACROS
  96. ; ┌────────┬──────────────┐  ┌───────────┬─────────────────────────────────────┐
  97. ; │        │      UP      │  │           │     Left        Middle      Right   │
  98. ; │ Mouse  │      |       │  │  Button   │                                     │
  99. ; │Movement│LEFT--|--RIGHT│  │Definitions│     <CR>        <Esc>       TAB     │
  100. ; │        │      |       │  │           │                                     │
  101. ; │        │     DOWN     │  │           │                                     │
  102. ; └────────┴──────────────┘  └───────────┴─────────────────────────────────────┘
  103. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  104.  
  105. Link1_Cursor: Cursor
  106. (
  107.                  Left         ([Up])
  108.                  Right        ([Down])
  109.                  Up           ([Up])
  110.                  Down         ([Down]) 
  111.                  Sensitivity  (10, 10)
  112.                  Hysteresis   (2, 2)  
  113. )
  114. ; DEF #4         Definitions When Working With DIR LINKS (RIGHT DISPLAY)
  115. ; ┌────────┬──────────────┐  ┌───────────┬─────────────────────────────────────┐
  116. ; │        │      UP      │  │           │     Left        Middle      Right   │
  117. ; │ Mouse  │      |       │  │  Button   │                                     │
  118. ; │Movement│  UP--|--DOWN │  │Definitions│     <CR>        <Esc>       Switch  │
  119. ; │        │      |       │  │           │                               to    │
  120. ; │        │     DOWN     │  │           │                             DEF #5  │
  121. ; └────────┴──────────────┘  └───────────┴─────────────────────────────────────┘
  122. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  123.  
  124. Link2_Cursor: Cursor
  125. (
  126.                  Left         ([F1])
  127.                  Right        ([F2])
  128.                  Up           ([F1])
  129.                  Down         ([F2]) 
  130.                  Sensitivity  (10, 10)
  131.                  Hysteresis   (2, 2)  
  132. )
  133. ; DEF #5         Definitions When Working With DIR LINKS (LEFT DISPLAY)
  134. ; ┌────────┬───────────┐     ┌───────────┬─────────────────────────────────────┐
  135. ; │        │     F1    │     │           │     Left        Middle      Right   │
  136. ; │ Mouse  │     |     │     │  Button   │                                     │
  137. ; │Movement│ F1--|--F2 │     │Definitions│     <CR>        <Esc>       Switch  │
  138. ; │        │     |     │     │           │                               to    │
  139. ; │        │     F2    │     │           │                             DEF #4  │
  140. ; └────────┴───────────┘     └───────────┴─────────────────────────────────────┘
  141. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  142. ;       BUTTON DEFINITIONS 
  143. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  144.  
  145. Tag_it:          Button  (Keys("t"))        
  146. UnTag_it:        Button  (Keys("u"))        
  147.  
  148. Top_Dir:         Button  (Keys([F5]))
  149. CR:              Button  (Keys([Enter]))
  150. ESC_Key:         Button  (Keys([Esc]))
  151. TAB_Key:         Button  (Keys([Tab]))
  152. Page_Up:         Button  (Keys([PgUp]))
  153. Page_Dn:         Button  (Keys([PgDn]))
  154. Up_Key:          Button  (Keys([Up]))
  155. HOME_Key:        Button  (Keys([Home]))
  156. END_KEY:         Button  (Keys([End]))
  157.  
  158. Dir_Buttons:     Button  (Cursor  (Dir_Cursor)
  159.                           Button  (Left=CR)
  160.                           Button  (Middle=Top_Dir)
  161.                           Button  (Right=File_Buttons))
  162.  
  163. File_Buttons:    Button  (Cursor  (File_Cursor)
  164.                           Button  (Left=Tag_it)
  165.                           Button  (Middle=UnTag_it)
  166.                           Button  (Right=Dir_Buttons))
  167.  
  168. Esc_File_Buttons:Button  (Cursor  (File_Cursor)
  169.                           Keys    ([Esc])
  170.                           Button  (Left=Tag_it)
  171.                           Button  (Middle=UnTag_it)
  172.                           Button  (Right=Dir_Buttons))
  173.  
  174. Rtn_File_Buttons:Button  (Cursor  (File_Cursor)
  175.                           Keys    ([Enter])
  176.                           Button  (Left=Tag_it)
  177.                           Button  (Middle=UnTag_it)
  178.                           Button  (Right=Dir_Buttons))
  179.  
  180. Link1_Buttons:   Button  (Cursor  (Link1_Cursor)
  181.                           Button  (Left=Rtn_File_Buttons)
  182.                           Button  (Middle=Esc_File_Buttons)
  183.                           Button  (Right=Link2_Buttons))
  184.  
  185. Link2_Buttons:   Button  (Cursor  (Link2_Cursor)
  186.                           Button  (Left=Rtn_File_Buttons)
  187.                           Button  (Middle=Esc_File_Buttons)
  188.                           Button  (Right=Link1_Buttons))
  189.  
  190. LM_CHORD:        Button  (Menu(LM_MENU))
  191.  
  192. LR_CHORD:        Button  (Menu(LR_MENU))        
  193.  
  194. MR_CHORD:        Button  (Menu(MR_MENU))         
  195.  
  196. LMR_CHORD:       Button  (Menu(MISC_MENU))         
  197.  
  198. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  199. ;       MENU DEFINITIONS
  200. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  201.  
  202. DRIVES:   Menu(
  203.             Title   ("DRIVES")
  204.             Position(UpperLeft(1,1))
  205.             Item    (" ",              )
  206.             Item    ("A",              Keys("da" [Enter]))
  207.             Item    ("B",              Keys("db" [Enter]))
  208.             Item    ("C",              Keys("dc" [Enter]))
  209.             Item    ("D",              Keys("dd" [Enter]))
  210.             Item    ("E",              Keys("de" [Enter]))
  211.             Item    ("F",              Keys("df" [Enter]))
  212.             Item    ("G",              Keys("dg" [Enter])))
  213.  
  214. FREE_SPACE: Menu(
  215.             Title   ("DRIVES")
  216.             Position(UpperLeft(1,1))
  217.             Item    (" ",              )
  218.             Item    ("A",              Keys([a-f] "a" ))
  219.             Item    ("B",              Keys([a-f] "b" ))
  220.             Item    ("C",              Keys([a-f] "c" ))
  221.             Item    ("D",              Keys([a-f] "d" ))
  222.             Item    ("E",              Keys([a-f] "e" )))
  223.  
  224. MR_MENU: Menu(
  225.             Title   ("File Commands")
  226.             Position(UpperLeft(0,1))
  227.             Item    ("  List File  ",  Keys("l")
  228.                                        Cursor(Link1_Cursor)
  229.                                        Button  (Left=Page_Up)
  230.                                        Button  (Middle=Esc_File_Buttons)
  231.                                        Button  (Right=Page_Dn))
  232.             Item    ("─────────────",  Keys([Esc]))
  233.             Item    ("  Edit File  ",  Keys("e"))
  234.             Item    ("─────────────",  Keys([Esc]))
  235.             Item    (" Execute File",  Keys("x" [Enter]))
  236.             Item    ("─────────────",  Keys([Esc]))
  237.             Item    (" Copy Files  ",  Keys("k"))
  238.             Item    ("─────────────",  Keys([Esc]))
  239.             Item    (" Delete Files",  Keys([a-d]))
  240.             Item    ("─────────────",  Keys([Esc]))
  241.             Item    (" Move Files  ",  Keys("m"))
  242.             Item    (" Rename File ",  Keys("r"))
  243.             Item    ("─────────────",  Keys([Esc]))
  244.             Item    (" PageUp Files",  Keys([PgUp]))
  245.             Item    (" PageDn Files",  Keys([PgDn]))
  246.             Item    ("─────────────",  Keys([Esc]))
  247.             Item    ("   Tag All   ",  Keys([a-t]))
  248.             Item    ("  Untag All  ",  Keys([a-u])))
  249.  
  250. LR_MENU:  Menu(
  251.             Title   ("File Commands")
  252.             Position(UpperLeft(0,1))
  253.             Item    ("             ",  Keys([Esc]))
  254.             Item    (" Split Screen",  Keys("s"))
  255.             Item    ("─────────────",  Keys([Esc]))
  256.             Item    (" Switch/Flip ",  Keys("+"))
  257.             Item    ("─────────────",  Keys([Esc]))
  258.             Item    ("25  43/50 Tog",  Keys([a-m]))
  259.             Item    ("─────────────",  Keys([Esc]))
  260.             Item    ("Select & Sort",  Keys([a-s]))
  261.             Item    ("─────────────",  Keys([Esc]))
  262.             Item    (" Control Tags",  Keys([c-t]))
  263.             Item    ("─────────────",  Keys([Esc]))
  264.             Item    ("  Find File  ",  Keys("f"))
  265.             Item    ("─────────────",  Keys([Esc]))
  266.             Item    ("Enter Command",  Keys("c")
  267.                                        Cursor(File_Cursor)
  268.                                        Button  (Left=Rtn_File_Buttons)
  269.                                        Button  (Middle=ESC_Key)
  270.                                        Button  (Right=Up_Key))
  271.             Item    ("─────────────",  Keys([Esc]))
  272.             Item    (" Attrib Files",  Keys("a"))
  273.             Item    ("─────────────",  Keys([Esc]))
  274.             Item    (" Print Tagged",  Keys("p")))
  275.  
  276. LM_MENU: Menu(
  277.             Title   ("DIR  COMMANDS")
  278.             Position(UpperCenter(43,1))
  279.             Item    ("             ",  Keys([Esc]))
  280.             Item    ("             ",  Keys([Esc]))
  281.             Item    (" Drive Change",  Menu(DRIVES))
  282.             Item    ("─────────────",  Keys([Esc]))
  283.             Item    (" Dir Add/Del ",  Keys([c-d])
  284.                                        Cursor(Dir_Cursor)
  285.                                        Button  (Left=CR)
  286.                                        Button  (Middle=Top_Dir)
  287.                                        Button  (Right=File_Buttons))
  288.             Item    ("─────────────",  Keys([Esc]))
  289.             Item    ("Directory Lks",  Keys("0")
  290.                                        Cursor(Link1_Cursor)
  291.                                        Button (Left=Rtn_File_Buttons)
  292.                                        Button (Middle=Esc_File_Buttons)
  293.                                        Button (Right=Link2_Buttons))
  294.             Item    ("─────────────",  Keys([Esc]))
  295.             Item    (" Attrib Dir  ",  Keys([c-a]))
  296.             Item    ("─────────────",  Keys([Esc]))
  297.             Item    (" Rescan Tree ",  Keys([a-r]))
  298.             Item    ("─────────────",  Keys([Esc]))
  299.             Item    (" Free Space  ",  Menu(FREE_SPACE))
  300.             Item    ("─────────────",  Keys([Esc]))
  301.             Item    ("  Tree Dump  ",  Keys([c-u]))
  302.             Item    ("─────────────",  Keys([Esc]))
  303.             Item    ("Volume ID Tog",  Keys([c-v]))
  304.             Item    ("             ",  Keys([Esc])))
  305.  
  306. MISC_MENU: Menu(
  307.             Title   ("MISC COMMANDS")
  308.             Position(UpperRight(79,1))
  309.             Item    ("             ",  Keys([Esc]))
  310.             Item    ("  Dir Mouse  ",  Cursor (Dir_Cursor)
  311.                                        Button (Left=CR)
  312.                                        Button (Middle=Top_Dir)
  313.                                        Button (Right=File_Buttons))
  314.             Item    ("─────────────",  Keys([Esc]))
  315.             Item    (" File Mouse  ",  Cursor (File_Cursor)
  316.                                        Button (Left=Tag_it)
  317.                                        Button (Middle=UnTag_it)
  318.                                        Button (Right=Dir_Buttons))
  319.             Item    ("─────────────",  Keys([Esc]))
  320.             Item    (" 1 Page Help ",  Keys("?"))
  321.             Item    ("─────────────",  Keys([Esc]))
  322.             Item    ("Help Expanded",  Keys([F10])
  323.                                        Cursor(File_Cursor)
  324.                                        Button  (Left=HOME_Key)
  325.                                        Button  (Middle=Esc_File_Buttons)
  326.                                        Button  (Right=END_Key))
  327.             Item    ("─────────────",  Keys([Esc]))
  328.             Item    ("Refresh Scrn ",  Keys([c-r]))
  329.             Item    ("─────────────",  Keys([Esc]))
  330.             Item    ("Color Changes",  Keys([a-k]))
  331.             Item    ("─────────────",  Keys([Esc]))
  332.             Item    ("Define Macros",  Keys([s-F10])
  333.                                        Cursor(Macro_Cursor)
  334.                                        Button (Left=Rtn_File_Buttons)
  335.                                        Button (Middle=Esc_File_Buttons)
  336.                                        Button (Right=TAB_Key))
  337.             Item    ("─────────────",  Keys([Esc]))
  338.             Item    ("Edit Defaults",  Keys([c-e])
  339.                                        Cursor(Macro_Cursor)
  340.                                        Button (Left=HOME_Key)
  341.                                        Button (Middle=Esc_File_Buttons)
  342.                                        Button (Right=Rtn_File_Buttons))
  343.             Item    ("─────────────",  Keys([Esc]))
  344.             Item    (" Prog Limits ",  Keys([c-l])))
  345.  
  346. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  347. ;       MOUSE DEFINITION
  348. ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  349.  
  350. Mouse(
  351.         Cursor           (Dir_Cursor)
  352.  
  353.         Left             (File_Buttons)   
  354.  
  355.         Middle           (Top_Dir)       
  356.  
  357.         Right            (CR)            
  358.  
  359.         LeftMiddle       (LM_CHORD)      
  360.  
  361.         LeftRight        (LR_CHORD)      
  362.  
  363.         MiddleRight      (MR_CHORD)
  364.  
  365.         LeftMiddleRight  (LMR_CHORD))
  366.  
  367.